<!doctype html>
<meta charset="utf-8">
<body style="background:white">

<h1 style="font-family:sans-serif">Quick Brown Fox (sans)</h1>
<p style="font-family:sans-serif"><em>Jumped</em> over the <strong>lazy dogs</strong>
<h1 style="font-family:serif">Quick Brown Fox (serif)</h1>
<p style="font-family:serif"><em>Jumped</em> over the <strong>lazy dogs</strong>
<h1 style="font-family:monospace">Quick Brown Fox (monospace)</h1>
<p style="font-family:monospace"><em>Jumped</em> over the <strong>lazy dogs</strong>

<p style="font-family:sans-serif">
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis
nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo
consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse
cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non
proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

<p style="font-family:serif">
Fanatics have their dreams, wherewith they weave
A paradise for a sect; the savage too
From forth the loftiest fashion of his sleep
Guesses at Heaven; pity these have not
Trac'd upon vellum or wild Indian leaf
The shadows of melodious utterance.
But bare of laurel they live, dream, and die;
For Poesy alone can tell her dreams,
With the fine spell of words alone can save
Imagination from the sable charm
And dumb enchantment. Who alive can say,
'Thou art no Poet may'st not tell thy dreams?'
Since every man whose soul is not a clod
Hath visions, and would speak, if he had loved
And been well nurtured in his mother tongue.
Whether the dream now purpos'd to rehearse
Be poet's or fanatic's will be known
When this warm scribe my hand is in the grave.

<pre>
(defun eval. (e a)
  (cond
    ((atom e) (assoc. e a))
    ((atom (car e))
     (cond
       ((eq (car e) 'quote) (cadr e))
       ((eq (car e) 'atom)  (atom   (eval. (cadr e) a)))
       ((eq (car e) 'eq)    (eq     (eval. (cadr e) a)
                                    (eval. (caddr e) a)))
       ((eq (car e) 'car)   (car    (eval. (cadr e) a)))
       ((eq (car e) 'cdr)   (cdr    (eval. (cadr e) a)))
       ((eq (car e) 'cons)  (cons   (eval. (cadr e) a)
                                    (eval. (caddr e) a)))
       ((eq (car e) 'cond)  (evcon. (cdr e) a))
       ('t (eval. (cons (assoc. (car e) a)
                        (cdr e))
                  a))))
    ((eq (caar e) 'label)
     (eval. (cons (caddar e) (cdr e))
            (cons (list. (cadar e) (car e)) a)))
    ((eq (caar e) 'lambda)
     (eval. (caddar e)
            (append. (pair. (cadar e) (evlis. (cdr e) a))
                     a)))))
</pre>
